home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / allmac21.arc / QLIST10.ARC / QLIST10.QM < prev   
Text File  |  1990-08-27  |  6KB  |  142 lines
  1. *                 Macro To Load Files From FileList, v1.0a
  2. *                               QLIST10.QM
  3. *
  4. *
  5. * DESCRIPTION:
  6. *
  7. * QLIST10.QM is a macro that enables QEdit to load a list of files from
  8. * a filelist file of unlimited length. This may be one of the broadly
  9. * most useful macros so far.
  10. *
  11. * The macro was initially written by Kyle Watkins of SemWare and has
  12. * been slightly modified by me to read the macfile of the first file
  13. * in the filelist. This should help those writing QMAC txtfiles.
  14. *
  15. * Added Alt_1 & QLIST.BAT  in v1.0a.
  16. *
  17. *        @0 - loads files from filelist, reads macfile
  18. *        @1 - loads files from filelist, does not read macfile
  19. *
  20. * TO RUN:
  21. *
  22. * To run, place all the files from QLIST10.ZIP in the current directory
  23. * and type QLIST.
  24. *
  25. * For other filelists, prepare a list of files in a vertical column.
  26. * Spaces between files are OK. Save the list with an extension 'ql'.
  27. * Change qlist.ql in QLIST.BAT to the name of your filelist.
  28. *
  29. * The following is the syntex:
  30. *
  31. *            Q.EXE [d:][fileList].ql /E[d:][fileName].mac
  32. *
  33. *
  34. * For my setup and to load files contained in QLIST.ZIP my command is:
  35. *
  36. *            Q  QLIST.ql /Eg:\qe\QLIST.mac
  37. *
  38. * I keep this QLIST.MAC in g:\qe.
  39. *
  40. * Any subsequent filelist I load can be loaded with the the following command:
  41. *
  42. *            Q [d:][filelist].ql /Eg:\qe\QLIST.mac
  43. *
  44. * You will see the files being loaded and when the macro completes you
  45. * should be editing this file. If you wish to load files from another
  46. * file list while QLIST.mac is loaded, just load that file list in
  47. * another window and press Alt_0. Another option is to place this macro
  48. * in QCONFIG.DAT on one line and it will be available to load other
  49. * lists at all times while editing any file.
  50.  
  51. * Use the macro by Kyle Watkins, Alt_1, if you do NOT wish to load the
  52. * macro of the first file in the filelist.
  53.  
  54. *┌────────────────────────────────────────────────────────────┐
  55. *│ @0 Load Files From FileList, Read macfile of first file    │
  56. *└────────────────────────────────────────────────────────────┘
  57. *
  58. @0 macrobegin
  59.         endfile                         * get to last file first
  60.         begline                         *
  61.  REPEAT:                                *
  62.         Unmarkblock                     *
  63.         Markline                        * markline
  64.         Copy                            * copy file name to scrap
  65.         Editfile                        *
  66.         Currentfilename " "             * load current file +
  67.         Paste                           * last marked on list
  68.         Return                          *
  69.         Cursorup                        * if another file, move up
  70.  JTrue REPEAT:                          * when no more files
  71.         nextfile                        * get to first file          |
  72.         macroread                       * and read it's macro        |(TH mod)
  73.         currentfilename                 *                            |
  74.         backspace backspace "mac" return*                            |
  75. *
  76. * 31 bytes Tue  07-31-1990  18:30:10
  77. *
  78.  
  79. * Use this macro, Alt_1, if you do NOT want to load the macro of the
  80. * first file in the filelist.
  81. *
  82. *
  83. * In comparing this latest macro (as written by Kyle Watkins) to one
  84. * Tim Farley wrote earlier, the following message was sent to me on the
  85. * SemWare BBS by Tim, dated 7/31/90:
  86. *
  87. ************************************************************************
  88. * COMMENTS FROM TIM FARLEY - SemWare:
  89. *
  90. *
  91. *         Here's Kyle's version (much improved over mine, I must admit) of the
  92. *         file list loading macro.  Comments added by me.
  93. *
  94. * *
  95. * * LOAD A LIST OF FILES
  96. *
  97. @1   MacroBegin
  98.      EndFile BegLine              * start at last line
  99.    REPEAT:
  100.      UnmarkBlock MarkLine Copy    * grab this name
  101.      EditFile                     * get ready to load
  102.      CurrentFilename " "          * to force return *here*
  103.      Paste Return                 * paste filename & do it!
  104.      CursorUp                     * more lines above?
  105.      JTrue REPEAT:                * if yes, repeat.
  106. *
  107. *
  108. *        Not only is this macro far smaller than mine (by a almost a factor of
  109. *        2!), but it has the following advantages:
  110. *
  111. *             * faster!
  112. *             * doesn't "change" the file list file
  113. *             * still loads files in same order they are in the list
  114. *             * returns to list file with no screen "flashing"
  115. *             * takes advantage of QEdit's deferred loading of files
  116. *
  117. *        That last bit is the main advantage:  by specifying CurrentFilename
  118. *        plus a space plus the desired filename on the EditFile prompt, we
  119. *        load both the current file, plus the file we desire.  This takes
  120. *        advantage of the fact that the EditFile, just like the QEdit command
  121. *        line, can accept multiple filenames together, separated by spaces.
  122. *
  123. *
  124. *        But loading the current file just returns us to the buffer we are in
  125. *        with no disk access.  So the end result is that the file from the
  126. *        list is entered in QEdit's "ring" *without* actually loading it.  It
  127. *        only loads when you try to NextFile into it, just as if you had
  128. *        loaded the list via a wildcard.  Neat!
  129. *
  130. *        Kyle really came up with a far better solution here.
  131. *
  132. *        --Tim Farley
  133. *
  134. *********************************************************************
  135. *
  136. * Version History:
  137. *
  138. *       1.0a - modified to include Alt_1, Changed documentation.
  139. *            - added QLIST.BAT for quick startup
  140.  
  141. *.. Tom Hogshead  Sat  08-18-1990  09:58:12
  142.